home *** CD-ROM | disk | FTP | other *** search
- @echo off
- open "MacDOS demo.cpt.hqx" first
- open "m" second
- onerror err
- set k=0
- read %first% x1
- read %second% x2
- repeat loop
- incr k
- set kk=%k%
- incr -kk by " "
- decr kk by 2
- set kkk=%k%
- incr -kkk by " "
- decr -kkk by %kk%
- if %kkk% == 00 echo %k%
- read %first% x1
- set xx1=%x1%
- decr xx1 by 32
- read %second% x2
- set xx2=%x2%
- decr xx2 by 32
- if not %xx1% == %xx2% goto diff
- set xx1=%x1%
- decr -xx1 by 32
- set xx2=%x2%
- decr -xx2 by 32
- if %xx1% == %xx2% goto loop
- :diff
- echo line No %k%:
- echo %x1%
- echo %x2%
- goto bye
- :loop
- :err
- show %doserr% mess
- echo error %doserr%: %mess%
- :done
- %k% lines
- :bye
- close %first%
- close %second%
-